From 6f553b529258948ea4d4e2d3acae79858abc0caa Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 5 Sep 2010 23:20:25 +0000 Subject: [PATCH] nnvirtual.el (nnvirtual-create-mapping): Use the active info we already have if we're in a main Gnus `g' run. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-start.el | 2 +- lisp/gnus/nnvirtual.el | 18 +++++++++--------- 3 files changed, 13 insertions(+), 10 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2a1a6c1b3ae..dda6d7eafa6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-09-05 Lars Magne Ingebrigtsen + * nnvirtual.el (nnvirtual-create-mapping): Use the active info we + already have if we're in a main Gnus `g' run. + * gnus-start.el (gnus-method-rank): Get info for virtual groups last. 2010-09-05 Katsumi Yamaoka diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 9a923ff4d32..c3c7241b3c3 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -1796,7 +1796,7 @@ If SCAN, request a scan of that group as well." (gnus-read-active-file-1 method nil)) (t (dolist (info infos) - (gnus-activate-group (gnus-info-group info) nil nil method)))))) + (gnus-activate-group (gnus-info-group info) nil t method)))))) ;; Create a hash table out of the newsrc alist. The `car's of the ;; alist elements are used as keys. diff --git a/lisp/gnus/nnvirtual.el b/lisp/gnus/nnvirtual.el index 94f43216b38..c94d1837fa9 100644 --- a/lisp/gnus/nnvirtual.el +++ b/lisp/gnus/nnvirtual.el @@ -260,13 +260,11 @@ component group will show up when you enter the virtual group.") (nnheader-report 'nnvirtual "No component groups in %s" group)) (t (setq nnvirtual-current-group group) - (when (or (not dont-check) - nnvirtual-always-rescan) - (nnvirtual-create-mapping) - (when nnvirtual-always-rescan - (nnvirtual-request-update-info - (nnvirtual-current-group) - (gnus-get-info (nnvirtual-current-group))))) + (nnvirtual-create-mapping dont-check) + (when nnvirtual-always-rescan + (nnvirtual-request-update-info + (nnvirtual-current-group) + (gnus-get-info (nnvirtual-current-group)))) (nnheader-insert "211 %d 1 %d %s\n" nnvirtual-mapping-len nnvirtual-mapping-len group)))) @@ -670,7 +668,7 @@ the result." carticles)) -(defun nnvirtual-create-mapping () +(defun nnvirtual-create-mapping (dont-check) "Build the tables necessary to map between component (group, article) to virtual article. Generate the set of read messages and marks for the virtual group based on the marks on the component groups." @@ -689,7 +687,9 @@ based on the marks on the component groups." ;; Into all-marks we put (g marks). ;; We also increment cnt and tot here, and compute M (max of sizes). (mapc (lambda (g) - (setq active (gnus-activate-group g) + (setq active (or (and dont-check + (gnus-active g)) + (gnus-activate-group g)) min (car active) max (cdr active)) (when (and active (>= max min) (not (zerop max))) -- 2.30.2